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DIRSCN 16-Sep-1964 00:59: VAX-11 Bliss-32 V4.0-742 P 1 
12-838=1 982 99:33:40 DISKSVMSMASTER:CF1iA.SRCIDIRSCN.B32;1 >. (1) 
MODULE DIRSCN — (B {S358 ‘ 
pe = 'v04- 


BEGIN 
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'e * 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 4 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. . 
ie THIS SOFTWARE, IS F RNI SHED UNDER A LICENSE AND MA ® 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH L * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF 4 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
is TRANSFERRED. . 
ie THE INF ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 
H ® 
i DIGITAL ASSUMES NO RESPONS 4 
it SOFTWARE ON EQUIPMENT WHIC * 
° ® 
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FACILITY: F11ACP Structure Level 1 
i ABSTRACT: 
This routine performs the basic scan of a directory, 


Sear ening for both relevant entries and tree space. 
i ENVIRONMENT 


Be Se Ge Se Ge Se Ge Se Se Se Ge Se Se Ge Ge Ge Ge Se Ge Se Se Ge Se Se Ge Se Ss eese Fe Se Sete teases 


ak a at a a nk a a at at tt ot tt Sh I SF YY YY BS SY SS SS SS SS SS 2 OOO 


8 
9 STARLET operating system, including privileged system services 
4 0040 and internal exec routines. 
4 0041 
4 B26 -- 
4 
d as ji 
046 AUTHOR: Andrew C. Goldstein, CREATION DATE: 26-Dec-1976 19:13 
? pee MODIFIED BY: 
5 50 i v03-004 Laos) L. Mark Pilang 23-Jul-1984 8:43 
5 51 : Fix a bug introduced by LMPO2 St caused ate directory 
5 26 } records to generate the SS$ OSADIRE tTor Ye 
2 3 i v03-004 LMP0255 Mark Pilant, 6-Jun-1984 10:32 
55 ! Validate the ation number from a directory record to 
28 : vahe that it is greater than zero. 
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Sep-1984 VAX=i1 Bliss-32 V4.0-7 
1b-se eat 99: 33 $) DISKSVMSMASTER: a CETIALSREIDIRSCN. B32;1 yage af 
v0O3-003 LMP0241 Pilant 26-Apr-1984 16:27 

Change the wildcard” = teete to improve performance. 


vO3-002 LMP0196 L. Pilant, 28-Feb-1984 11:06 
ones ae FMGSMATCH NAME for the file name and type. Not the 


v03-001 LMP0167 bn Allens. 
Add support for full ‘wildcard ng. 


A0100 acco 01 Andrew C. Goldstein, 10-Oct-1978 20:01 
Previous revision history moved to F11A.REV 


10-Nov-1983 14:23 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
REQUIRE ‘SRCS$:FCPDEF .B32'; 
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GLOBAL ROUTINE DIR_SCAN (NAME_ OCK, ENTER_MODE) = 
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i FUNCTIONAL DESCRIPTION: 


< 


This routine performs the basic scan of a directory, 
searching for both relevant entries and free space. 


CALLING SEQUENCE: 
DIR_SCAN (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of name block 
ARG2: 0 if operation is FIND or REMOVE 
1 if operation is ENTER 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
FIRST FREE: record number of first free directory entry 
DIR_RECORD: record number of found entry 
HIGREST VERSION: highest version number encountered 
LOWEST_VERSION: Lowest version number encountered 


ROUTINE VALUE: 
address of found directory entry or ‘ 
0 if not found 


SIDE EFFECTS: 
NONE 


BEGIN 
MAP 
NAME BLOCK : REF BBLOCK; ! mame block arg 
LINKAGE 
LLMATCHNAME = JSB (REGISTER = 2. REGISTER = 3 
REGISTER = 4, REGISTER = 5§ 
NOTUSED (10, 11); 
EXTERNAL 
FIRST FREE ' record number of first free slot 
HIGHEST VERSION, i highest version number seen 
LOWEST VERSION, ' Lowest version number seen 
DIR_RETORD; ! record number of found entry 
EXTERNAL ROUTINE 
DIRGET ' get a directory record 
MAKE_STRING, i Convert file name block to string 


N 4 
DIRSCN 16-Sep-1984 00:59: VAX-11 Bliss-32 V4.0-742 Page 4 
MO 500 a 7 99:39:80 DISKSVMSMASTER:CF11A.SRCIDIRSCN.B32; 1 ’ (2) 
3 } 5 cis FMGSMATCH_NAME : L_MATCH_NAME; ! match general wild card string 
;¥ ; 4 LOCAL 
; in 451 1G. VERSION : SIGNED WORD, ! highest version so far 
: 139 4 ¢ LOW_VERSION SIGNED WORD, ' Lowest version so far 
: 140 FREE RECORD, ! first free record encountered 
s 141 4 ! current record number 
: 196 455 BEST REC, ' record number of highest/lowest version 
: 14 dy § RECABD : REF BBLOCK. ! address of current directory record 
: Ie r f ASCI1_NAME : VECTOR (20, BYTE); ! Dir entry name in ASCII 
: 16 459 2! Initialize things. 
i gee! 
> 149 4b¢ FREE_RECORD = 0; ! no enpty record found yet 
: 150 46 BEST_REC = 0; ! no match found at all 
s 131 464 HIGH VERSION = 9% ! no high version as yet 
; 13¢ 0465 LOW_JERSION = 32767; i no low version as yet 
: 154 046 ! Now scan the directory sequentially, looking at each entry. If the search 
s 155 0468 ! is for *.*;*, then read one block at a time. Otherwise, read whatever the 
: 156 0469 ! buffer pool will take. 
2 oes 
: 159 047 REC_NUM = .NAME_BLOCK CNMBSW_CONTEXT); 
; 189 eb ai BEGIN 
ts ha dio TTT 
> 164 0477 4 REC_NUM = .REC_NUM + 1; 
3; 6165 0478 4 IF .NAME_BLOCK CNMBSV_ALLNAM) 
: 166 0479 4 D .NAME_BLOCK pImBS ALL TYE 
3 167 0480 4 * OCK CNMBSV~ALL Re 
; 168 0481 4 THEN RECABDR = DIRGET T.REC_NUM, 0) 
; 169 bees 2 ELSE RECADDR = DIRGET (.REC_NUM, 1); “4 
3 \7 bebe 2 IF .RECADDR EQL 0 THEN EXITLOOP 1; ! out on end of file ; 
: 178 0486 4 ! Process each directory entry. First check for empty entries, noting s 
> 174 0487 4 ! the first one. a4 
: 489 4 : 
: 177 0490 4 IF .RECADDR CNMBSW_FID_NUM] EQL 0 s 4 
: 38 re ¢ THEN GIN ; 
: 180 049 2 IF .FREE_RECORD EQL 0 THEN FREE_RECORD = .REC_NUM - 4 
ig i Be 7 
: 183 38 ! If we are in file ID search mode, compare the file ID 4 
: 184 49 2 ! s 4 
3; «6185 498 4 
; 196 +44 ‘ ELSE : 
> 188 501 : IF .RECADDRCNMBSW_ VERSION) LEQ 0 THEN ERR_EXIT (SS$_BADIRECTORY); , 4 
: «6189 208 é IF .NAME_BLOCK CNABSV_FINDFID) . 4 
3; 190 5 THEN 2 
: 191 504 6 BEGIN | zg 4 


§ 
DIRSCN 16-Sep-1984 00:59: VAX=11 Bliss-32 V4.0-742 P 
¥O2500 1 =300 1383 90:39:80 DISKSVMSMASTER:LFIIA.SRCIDIRSCN.B32:1 > (23 
5 IF CHSEQL (NMBSS_FID, NAME BLOCK CNMBSW_FID 
hones NMBSS"FID, RECADDR ENMBSUF 1B). 45 


5 EXITLOOP 0; 


— — — ss 4 _ 2 2 
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Otherwise compare the name and type fields under wild card control. 
ELSE 
IF 


BEGIN 
. ~NAME_BLOCKCNMBSV_ALLNAM] AND .NAME_BLOCKCNMBSV_ALLTYP) 
ELSE IF .NAME_BLOCKCNMB$V_WILDJ 

THEN 


BEGIN 
ASCII_NAMECO] = MAKE_STRING (.RECADDR, ASCII_NAMEC1]); 
! Note that the match takes place ONLY on the file name and type. 


ASCII_NAMECO] = CHSFIND_CH (.ASCII NAME OI, 
ASCII_NAMECI], °:") - 
ASCII_NAME(1); 
FMGSMATCH_NAME CASCIT NAMELOS, 


Elid, 
. NAME “BLOCK CNMBSB prceratiee 
NAME _BLOCKCNMBST_ASCNAMTXTJ) 


IAAI ROPOPOPUPONUNUNNY 2 2 ee 


=—OODNOA UNE AN 0 DOONAN EWN — OOO NOA UE WN O ODNOUES WN S(O OONOUS W000 


SOSOSOSOOCOCOSOSOOSOSOSOOSSSOSSOOSS GOOSSSOOOCCoOCOCOOOOCoOoOOOOOOOOOOOoOoO 
PPV PUPVPV PUP PUPIL SVL SUSI SUSU SUSU SUSVSUSUSVSUSOSVSUSU SU SUSUSU SUSU SUS USSSA ISISISISISIOSUSIOSIOSISIST 
SNIPE ADA NINN NA AAA AMA AAA AAA A NINE INNS NNN NNN AA AAAI AAA AAAAO 


Be Se Se Fe Se Ge Se Ge Be Se Ge Fe Se Be Ge Se Se Ge Ge Se Se FHS Ss Ge Ge FH Fe Ge Ge Se Se Ge Se Ge FF Se SF Se FH Ss Se Se Se Se Se Ge Se Se Ge Se Se Se Sees Se ee 


END 
LSE 
; (CHSEQL (NMBSS_NAME, NAME BLOCK CNMBSW_NAME] 
; MBSS-NAME, RECADDR_CNMBSW_NAME J 0} 
; oe AND .NAME_BLOCK CNMBSW_TYPE] EQL .RECADDR CNMBSW_TYPEJ) 
4 ! On a name and type match, process the version. Wild card is an immediate 
4 ! match. Otherwise, maintain highest and lowest numbers found, keepin 
4 ! the record number of what we are looking for, if any. On exact match, 
2 exit immediately, note, or ignore, depending on the mode. 
4 . 
4 THEN 
4 BEGIN 
2 IF .NAME_BLOCK CNMBSV_ALLVER] THEN EXITLOOP 0; ! wild card version 
2 eee CNMBSW_VERSION] GTR .HIGH_VERSION 
39 5 BEGIN 
40 5 HIGH_VERSION = .RECADOR CNMBS$W_VERSION); 
41 5 F NOT .ENTER_MODE AND .NAME_BCOCK NMBSW_VERSION] EQL 0 
4 : THEN BEST_REC = .REC_NUM; 
rb 2 END; 
45 5 IF .RECADDR CNMESW_VERSION) LSS .LOW_VERSION 
6 5 THEN 
4 6 BEGIN 
48 6 LOW_VERSION = .RECADDR CNMBS$W_VERSION); 
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IF NOT -ENTER_MODE AND .NAME_BLOCK CNMBSW_VERSION] EQL -32768 
BEST_REC = .REC_NUM; 
END; 
IF AECADDR CNMBSW_VERSION] EQL .NAME_BLOCK CNMBS$W_VERSION] 
BEGIN 
IF NOT .ENTER_MODE THEN EXITLOOP 0; 
4 NOT .NAME_BLOCK CNMBSV_NEWVER] THEN BEST_REC = .REC_NUM; 


END: END; end of version processing 
END 


END 

THEN 
IF .BEST_REC NEQ 0 
THEN 


end of loop 
end surroundin ee ' 

f we scanned the whole directory 
and found a candidate 


BEGIN re-read the winning entry 
RECADDR = DIRGET (.BEST_REC, 0); 
REC_NUM = .BEST_REC; 


!' Return the implicit sutputs as specified and return the address of the 
: found directory entry (or 0 for none). 


RECORD; ! first free entry 
“HIGH_VERSION; ! highest version number found 
= .LOW_ VERSION; ' Lowest version number found 

nee NUM; ! record number of entry 


END; !' end of routine DIR_SCAN 


T_FREE, HIGHEST_VERSION 
ST_VERSION, DIRRECORD 
IRGET; MAKE STRING 


-PSECT SCODES,NOWRT,2 
OFFC 00000 ~ENTRY BIR SCAN, Save R2,R3,R4,R5,R6,R7,RB,RI,RIO,~; 0391 
00 SUB #28, SP 

#€ 90008 O° Best 


: : 


1C 
5 EST_RE 
06 AE B 7 C HIGH VERSION 
é 7FFF OSE A MOVW #32767, LOW_VERSION 
04 ac F MO NAME BLOCK .“R 
9 6 A ; MOVZWL 38(R0), REC_NUM 
59 D 1$: INCL REC_NUM 
Ac 9 MOVL NAME BLOCK. RO 
05 € ) a5, T $ 


5 04 
BBC (RO), 2 


OE 10 A 


TE rTerTerererererere ry 
oo oo°oo 
PP FEES 
SIN NOOO 
On MUSw 
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16-Sep-1984 00:59: VAX-11 Bliss-32 V4.0-742 Page 7 
13-808-1 382 99:39:80 DISKSVMSMASTER:CFIIA.SRCIDIRSCN.B32:1-> (2) 
1 BBC #4, 16(RO), 2$ : 0479 
a3 Fy 5 BBC 5 186R8} ? $ : 2486 
b4 C CLRL 40s =< §P) + 0481 
1 BRB 3$ 3 
DD 3: PUSHL #1 + 0482 
DD $: PUSHL REC_NUM : 
00006 cf F CALLS #2, DIRGET : 
7 9 MOVL RO, RECADDR ; 
0 C BNEG 4% + 0484 
ooce BRW 15$ : 
83 41 4$: TSTW  (RECADDR) + 0490 
9 4 BNEQ ©5$ ; 
B D TSTL  FREE_RECORD + 0493 
ce 1 4 BNEO ~=s«d1$ : 
5B D 49 MOVL REC_NUM, FREE_RECORD : 
C9 11 0004C BRB 1 + 0492 
OE A? 89 4E 5$: TSTW 14 (RECADDR) + 0501 
05 4 0005 BGTR 6$ ; 
0828 «&F BF 90 CH #2088 : 
4 00 RET F 
56 04 ac dO 0058 6$: MOVL § NAME_BLOCK, R6 + 0502 
10 A6 4: 05¢ MOVAB 16(R8), RB : 
09 68 08 0060 BBC #ii, (RB), 7$ : 
67 66 6 9 00064 CMPC3 #6, (R6), (RECADDR) : 0506 
AD ¢ Bpee BNEQ 1$ 5 
00B3 31 O006A BRW 16s + 0508 
04 68 05 €1 0060 7$: BBC #5, (RB), 8$ : 0517 
OF 6 04 EO 071 BBS #4. (RB). 11$ ; 
3¢ 01 Ag E 0075 8$: LBC ~—so'1€R8), 108 : 0519 
9 AE 9F 00079 PUSHAB ASCII NAME+1 : 0522 
5? DD 0007C PUSHL RECA : 
00006 CF 02 FB 007 CALLS #2, MAKE_STRING : 
08 AE 90 0008 MOVE RO, ASCIT_NAME F 
5 08 AE 9A 0008 MOVZBL Astil NAME, R + 0526 
09 AE 50 : 3a 000 LOCC #59, RO, ASCII_NAME+1 : 0527 
12 000 BNEQ 93 ; 
1 ps 009 CLRL RV F 
50 09 A : 094 9$: HOVAB ASCII_NAME+1, RO + 0528 
08 AE 31 5 8 098 SUBB3 RO, RT, ASCII_NAME : 
3 13 Ab 9E 00090 MOVAB 19(R6). : 0532 
09 AE 9E 000A1 MOVAB ; : 0530 
4 iF A6 9A a3 (R : 0532 
2 08 A 2, A A : 
$7 00006 8 . G : 
F FF B 3 
06 A? 06 Ab 06 iH BS ; 0536 
oc A? 0c i & rH ; 0537 
58 0 ¢ > 0548 
5 OE A af (8 : 0550 
+5 HD Sa : 
04 =A 5 - D : 0555 
0 8 AC E > 0554 
88 A B DA 3 


~iintieliniiiiaes cc 


5 
DIRSCN 1b-5e -1984 00:59: VAX-11 Bliss-32 V4 
Moe s600 1 ~3007 138% 99:39:84 NT SKSVMGRASTERS EE 
93 1 DD BNEQ 12$ 
A D OF MOVL § REC_NUM, BEST_REC 
0 8 128 cHPY W- VERSION, RO 
E B ty R ¥ OW_ VERS 
fs 08 AC E A BLBS ENtER MODE 135 
8000 8F —E A : E CMPW 4(R6Y, #-$276 
A g D f BOVE R t NUM, BEST_REC 
24 OE A6 é F§ 13$ CMPW retRey RD - 
yp ow HEE RRNP BMD Aten mane. 
03 eB 5 : 3 BBS a9, (RB), 14$ 
A 9 : 1 MOVL REC _NUM, BEST_REC 
FFOA 10A 14$: BRW 1 
A D3 100 15$: TSTL BEST_REC 
OF 13 0010F BEQL -16$ 
CS a ere 
00006 CF : FB 0011 CALLS a. BIRGET 
7 DO OO11A MOVL RO, RECADDR 
9 A D0 0011D MOVL  BEST_REC, R 
0006 CF 8 4 9 16$: MOVL  FREETRECORD, FIRST_FRE 
000G CF 04 AE 1 CVTWL HIGH"VERSION, HIGHEST VERSION 
000G CF ge 01 CVTWL LOW VERSION, LOWEST_VERSION 
0006 cr 01 MOVL REC"NUM, DIR_ D 
0 57 D0 001 MOVL RECADDR, RO 
04 001 RET 
; Routine Size: 313 bytes, Routine Base: S$CODES + 0000 
; 285 0596 1 
3; 286 322 1 END 
: 285 598 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 313 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eccecece Symbols eoneceocen Pages Processing 
; File Total Loaded Percent Mapped Time 
$ _$255$0UA28:(SYSLIBILIB.L32;1 18619 18 0 1000 00:02.0 


0-742 p 
iA, SREIDIRSCN.B32:1°" (25 


eef 


vbe=600 if: se0- 1984 93:38:80 DASkSUMGHASTERSCETIAcsReIDIRSCW.B32:1°% (25 


3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIM!ZE)/LIS=LIS$:DIRSCN/OBJ=OBJ$:DIRSCN MSRC$:DIRSCN/UPDATE=(ENH$:DIRSCN) 
3; Size: 313 ode 5 + 0 data bytes 
; Run Time: 
Elapsed Time: ig 
3 Lexenes/CPU-Rin: 1 3 


: Memory Used: 160 pages 
; Eonetlaxion Complete 
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